program main
    implicit none
    integer summary,i
    data summary,i /0,1/
1   if (i<=100) then
        summary = summary + i
        i = i + 1
        goto 1 
    end if
    write(*,"(a8,I9)") "Summary=",summary
end program
